home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / menu0174.zip / RSB2MENU.MRG < prev    next >
Text File  |  1992-06-23  |  6KB  |  137 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against C:\RBBS\SOURCE\STOCK\RBBSSUB2.BAS to produce RBBSSUB2.BAS
  3. * C:\RBBS\SOURCE\STOCK\RBBSSUB2.BAS:  Date 6-20-1992  Size 140946 bytes
  4. * ------------[ Created 06-23-1992 02:02:37 ]------------
  5. * REPLACING old line(s) by new
  6. 112 ' $SUBTITLE: 'SysMenu - sub to display RBBS-PC SYSOP menu'
  7. '  $PAGE
  8. '
  9. '  NAME    --  SysMenu
  10. '
  11. '  INPUTS  --  PARAMETER           MEANING
  12. '
  13. '  OUTPUTS --  NONE
  14. '
  15. '  PURPOSE --  TO DISPLAY RBBS-PC's SYSOP MENU ON THE LOCAL SCREEN
  16. '
  17.     SUB SysMenu STATIC
  18.     ZLocalUser = ZTrue
  19.     ZSnoop = ZTrue
  20.     ZNonStop = ZTrue
  21.     CALL CheckTime (TIMER, ZDelay!, 1)
  22. * ------[ first line different ]------
  23.     COLOR ZFG,ZFB,ZBorder                                            ' DD062201/MENU0
  24.     CLS
  25.     ZStopInterrupts = ZTrue
  26.     ZBypassTimeCheck = ZTrue
  27.     CALL BufFile ("MENU0",WasX)
  28.     ZNonStop = ZFalse
  29.     ZBypassTimeCheck = ZFalse
  30.     ZLocalUser = ZFalse
  31.     IF NOT ZOK THEN _
  32.        CALL LPrnt("MENU0 not on default drive",1)
  33.     LOCATE 2,14                                                      ' DD062201/MENU0
  34.     CALL LPrnt("" + LEFT$(ZVersionID$,13),0)                  ' DD062201/MENU0
  35.     LOCATE 2,33                                                      ' DD062201/MENU0
  36.     CALL LPrnt(ZNodeID$,0)
  37.     LOCATE 2,48                                                      ' DD062201/MENU0
  38.     CALL LPrnt(LEFT$(TIME$,5),0)                                     ' DD062201/MENU0
  39.     LOCATE 2,60
  40.     WasX$ = DATE$
  41.     CALL LPrnt(LEFT$(WasX$,6) + RIGHT$(WasX$,2),0)
  42.     LOCATE 2,74
  43.     CALL LPrnt(LEFT$(TIME$,5),0)
  44.     IF ZFMSDirectory$ <> "" THEN _
  45.        LOCATE 6,76 : _
  46.        CALL LPrnt("YES",0)
  47.     IF ZExtendedLogging THEN _
  48.        LOCATE 8,76 : _
  49.        CALL LPrnt("YES",0)
  50.     IF ZFossil THEN _
  51.        LOCATE 10,76 : _
  52.        CALL LPrnt("YES",0)
  53.     LOCATE 12,75 : _
  54.     CALL LPrnt(ZComPort$,0)
  55.     LOCATE 14,75
  56.     CALL LPrnt (STR$(CINT(FRE("A")/1024)) + "k",0)
  57. '    IF ZDebug THEN _                                                ' DD062201/MENU0
  58. '       LOCATE 22,76 : _                                             ' DD062201/MENU0
  59. '       CALL LPrnt("Yes",0)                                          ' DD062201/MENU0
  60.     END SUB
  61. '
  62. * REPLACING old line(s) by new
  63. 237 LOCATE 18,76
  64. * ------[ first line different ]------
  65. '    IF ZDosANSI THEN _                                              ' DD062201/MENU0
  66. '       CALL LPrnt(ZEscape$ + "[05m" + "YES" + ZEscape$ + "[00m",0) _ ' DD062201/MENU0
  67. '    ELSE CALL LPrnt ("YES",0)                                       ' DD062201/MENU0
  68.     CALL LPrnt ("" + "YES",0)                                 ' DD062201/MENU0
  69.     COLOR ZFG,ZBG,ZBorder
  70.     LOCATE 20,56,0                                                   ' DD062201/MENU0
  71. '
  72. '
  73. ' *  GET READY TO ANSWER INCOMMING CALL:
  74. ' *       1.  LET THE MODEM "AUTO-ANSWER" FOR RBBS-PC.
  75. ' *           REQUIRED RINGS = 0 AND S0 = 1 IN MODEM INIT COMMAND.
  76. ' *       2.  ANSWER THE MODEM ON A SPECIFIED NUMBER OF RINGS.
  77. ' *           REQUIRED RINGS > 0 AND S0 = 254 IN MODEM Init COMMAND.
  78. ' *       3.  ANSWER THE MODEM ON A SPECIFIED NUMBER OF RINGS AFTER A USER
  79. ' *           First CALLS AND THEN HANGS UP (I.E. RING-BACK).
  80. ' *           REQUIRED RINGS > 0 AND S0 = 255 IN MODEM INIT COMMAND.
  81. '
  82. '
  83.     WasQQ = 255
  84.     WasI = INSTR(ZModemInitCmd$,"S0")
  85.     IF WasI = 0 THEN _
  86.        GOTO 239
  87.     IF VAL(MID$(ZModemInitCmd$,WasI + 3,3)) = 255 THEN _
  88.        WasQQ = 0 : _
  89.        ZBlk = WasQQ
  90.     ZSecsUsedSession! = TIMER
  91.     ZSubParm = 1
  92.     CALL Line25
  93.     RingAnswer = ZTrue
  94.     IF RingBack THEN _
  95.        RingAnswer = ZFalse
  96. * REPLACING old line(s) by new
  97. 265    CALL CheckTime(ZSecsUsedSession!, TempElapsed!, 2)
  98. * ------[ first line different ]------
  99. '       IF TempElapsed! > 120 AND NOT ScreenCleared THEN _           ' DD062201/MENU0
  100. '          LOCATE ,,0 : _                                            ' DD062201/MENU0
  101. '          CLS : _                                                   ' DD062201/MENU0
  102. '          ZWasCL = 1 : _                                            ' DD062201/MENU0
  103. '          ScreenCleared = ZTrue : _                                 ' DD062201/MENU0
  104. '          ZSecsUsedSession! = TIMER                                 ' DD062201/MENU0
  105.        IF ZTimeToDropToDos! > 0 THEN _
  106.           IF ZOldDate$ <> DATE$ THEN _
  107.           IF TIMER => ZTimeToDropToDos! AND _
  108.              TIMER < 86340 THEN _      ' Skip btw 23:59 and 00:00
  109.                 ZSubParm = 7 : _
  110.                 EXIT SUB
  111. * REPLACING old line(s) by new
  112. 270    IF ZRecycleWait > 0 THEN _
  113.           CALL CheckTime(InactiveDelay!, TempElapsed!, 1) : _
  114.           IF TempElapsed! <= 0 THEN _
  115.              ZSubParm = 8 : _
  116.              EXIT SUB
  117.        CALL FlushCom (WasX$)
  118.        IF LEN(WasX$) > 0 THEN _
  119.           ModemResponse$ = ModemResponse$ + WasX$ : _
  120.           RingDetected = (INSTR(ModemResponse$,"RING") > 0) : _
  121.           ConnectDetected = (INSTR(ModemResponse$,"ONNECT") > 0) : _
  122.           NoCall = (NOT RingDetected) AND (NOT ConnectDetected)
  123.     IF RingDetected AND ZRequiredRings > 0 THEN _
  124.        MID$(ModemResponse$, INSTR(ModemResponse$,"RING")+1,1) = "A" : _
  125.        RingDetected = ZFalse : _
  126.        GOTO 276
  127.     CALL GoIdle
  128. * ------[ first line different ]------
  129.     LOCATE 2,60,0                                                    ' DD062201/MENU0
  130.     WasX$ = DATE$                                                    ' DD062201/MENU0
  131.     CALL LPrnt("" + LEFT$(WasX$,6) + RIGHT$(WasX$,2),0)       ' DD062201/MENU0
  132.     LOCATE 2,74,0                                                    ' DD062201/MENU0
  133.     CALL LPrnt("" + LEFT$(TIME$,5),0)                         ' DD062201/MENU0
  134.     COLOR ZFG,ZBG,ZBorder                                            ' DD062201/MENU0
  135.     LOCATE 20,56,0                                                   ' DD062201/MENU0
  136.     GOTO 247
  137.